home *** CD-ROM | disk | FTP | other *** search
/ Network Support Library / RoseWare - Network Support Library.iso / apidev / netdmo.exe / TIME.FRM < prev    next >
Text File  |  1993-12-10  |  3KB  |  130 lines
  1. Version 1.00
  2. BEGIN Form Time
  3.     AutoRedraw   = 0
  4.     BackColor    = QBColor(1)
  5.     BorderStyle  = 1
  6.     Caption      = "Server Time"
  7.     ControlBox   = -1
  8.     Enabled      = -1
  9.     ForeColor    = QBColor(0)
  10.     Height       = Char(9)
  11.     Left         = Char(12)
  12.     MaxButton    = -1
  13.     MinButton    = -1
  14.     MousePointer = 0
  15.     Tag          = ""
  16.     Top          = Char(3)
  17.     Visible      = -1
  18.     Width        = Char(56)
  19.     WindowState  = 0
  20.     BEGIN CommandButton Exit1
  21.         BackColor    = QBColor(7)
  22.         Cancel       = 0
  23.         Caption      = "Exit"
  24.         Default      = 0
  25.         DragMode     = 0
  26.         Enabled      = -1
  27.         Height       = Char(3)
  28.         Left         = Char(32)
  29.         MousePointer = 0
  30.         TabIndex     = 0
  31.         TabStop      = -1
  32.         Tag          = ""
  33.         Top          = Char(3)
  34.         Visible      = -1
  35.         Width        = Char(14)
  36.     END
  37.     BEGIN CommandButton settime
  38.         BackColor    = QBColor(7)
  39.         Cancel       = 0
  40.         Caption      = "Set Time"
  41.         Default      = 0
  42.         DragMode     = 0
  43.         Enabled      = -1
  44.         Height       = Char(3)
  45.         Left         = Char(9)
  46.         MousePointer = 0
  47.         TabIndex     = 1
  48.         TabStop      = -1
  49.         Tag          = ""
  50.         Top          = Char(3)
  51.         Visible      = -1
  52.         Width        = Char(15)
  53.     END
  54.     BEGIN Label timelabel
  55.         Alignment    = 0
  56.         AutoSize     = 0
  57.         BackColor    = QBColor(1)
  58.         BorderStyle  = 0
  59.         Caption      = ""
  60.         DragMode     = 0
  61.         Enabled      = -1
  62.         ForeColor    = QBColor(15)
  63.         Height       = Char(1)
  64.         Left         = Char(11)
  65.         MousePointer = 0
  66.         TabIndex     = 2
  67.         Tag          = ""
  68.         Top          = Char(1)
  69.         Visible      = -1
  70.         Width        = Char(36)
  71.     END
  72. END
  73. '$FORM Time2
  74. '$FORM Netdemo
  75. TYPE GST
  76.       year AS INTEGER
  77.       month AS INTEGER
  78.       daydate AS INTEGER
  79.       hour AS INTEGER
  80.       Minute AS INTEGER
  81.       Second AS INTEGER
  82.       day AS INTEGER
  83. END TYPE
  84. DECLARE SUB GetServerTime (GetServTime AS GST)
  85.  
  86.  
  87. SUB Exit1_Click ()
  88. UNLOAD time
  89. Netdemo.SHOW
  90. END SUB
  91.  
  92. SUB Form_Load ()
  93. DIM GetServTime AS GST
  94. CLS
  95. CALL GetServerTime(GetServTime)    'Call the Procedure
  96. IF GetServTime.day% = 0 THEN dayofweek$ = "Sunday"
  97. IF GetServTime.day% = 1 THEN dayofweek$ = "Monday"
  98. IF GetServTime.day% = 2 THEN dayofweek$ = "Tuesday"
  99. IF GetServTime.day% = 3 THEN dayofweek$ = "Wednesday"
  100. IF GetServTime.day% = 4 THEN dayofweek$ = "Thursday"
  101. IF GetServTime.day% = 5 THEN dayofweek$ = "Friday"
  102. IF GetServTime.day% = 6 THEN dayofweek$ = "Saturday"
  103. IF GetServTime.hour% > 12 THEN
  104.         GetServTime.hour = GetServTime.hour - 12
  105.         ampm$ = "pm"
  106.         ELSE
  107.         ampm$ = "am"
  108. END IF
  109. IF GetServTime.Minute% < 10 THEN
  110.     SMinute$ = "0" + LTRIM$(STR$(GetServTime.Minute%))
  111. ELSE
  112.     SMinute$ = LTRIM$(STR$(GetServTime.Minute%))
  113. END IF
  114. IF GetServTime.Second% < 10 THEN
  115.     SSecond$ = "0" + LTRIM$(STR$(GetServTime.Second%))
  116. ELSE
  117.     SSecond$ = LTRIM$(STR$(GetServTime.Second%))
  118. END IF
  119.  
  120. stime$ = dayofweek$ + "    " + LTRIM$(STR$(GetServTime.month%)) + "\" + LTRIM$(STR$(GetServTime.daydate%)) + "\" + LTRIM$(STR$(GetServTime.year%))
  121. stime$ = stime$ + "    " + LTRIM$(STR$(GetServTime.hour%)) + ":" + SMinute$ + ":" + SSecond$ + ampm$
  122. timelabel.caption = stime$
  123. END SUB
  124.  
  125. SUB settime_Click ()
  126. UNLOAD time
  127. Time2.SHOW
  128. END SUB
  129.  
  130.